(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     71646,       1942]
NotebookOptionsPosition[     65731,       1741]
NotebookOutlinePosition[     66198,       1759]
CellTagsIndexPosition[     66155,       1756]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, 
   3.5400475876296253`*^9}],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "oFile", "=", 
    "\"\<C:\\\\Users\\\\Administrator\\\\Dropbox\\\\RbDFS\\\\calculation\\\\\
Rb85_5D52_D2.txt\>\""}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.542423311366123*^9, 3.5424233117247458`*^9}, {
  3.542428947984319*^9, 3.54242897196029*^9}, {3.5424291694461613`*^9, 
  3.5424291695865545`*^9}, {3.54245426639614*^9, 3.542454266552142*^9}, {
  3.542460227742942*^9, 3.5424602278677435`*^9}, {3.5424608017269173`*^9, 
  3.542460802257324*^9}, {3.5424618747420015`*^9, 3.5424618750852036`*^9}, {
  3.542462821815809*^9, 3.54246282194061*^9}, {3.542463583694507*^9, 
  3.5424635838349085`*^9}, {3.5424642277766247`*^9, 3.542464227885825*^9}, {
  3.5424648458226743`*^9, 3.5424648459318743`*^9}, {3.542465503801674*^9, 
  3.5424655052992744`*^9}, {3.542491591066103*^9, 3.5424915940466957`*^9}, {
  3.5425059141059732`*^9, 3.5425059143087816`*^9}, {3.5425141262804356`*^9, 
  3.542514126639242*^9}, {3.5425171921363506`*^9, 3.542517193259565*^9}, {
  3.542554252427908*^9, 3.542554252646309*^9}, {3.54678340458228*^9, 
  3.546783406205585*^9}}],

Cell[CellGroupData[{

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mRb", "=", 
   RowBox[{"84.911789732", " ", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "323"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, {3.540317222061832*^9, 3.54031724698142*^9}, {
   3.5406683409023237`*^9, 3.5406683521429667`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"N", "[", 
    FractionBox["5", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9, {
   3.5424254329979534`*^9, 3.542425435508909*^9}}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"df", "=", 
   RowBox[{"200", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "4", " "}]]}]}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"focus", " ", "spot"}], " ", "-", " ", "cm"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"vt", "=", 
   SqrtBox[
    RowBox[{"2", " ", "kB", " ", 
     RowBox[{"temp", "/", "mRb"}]}]]}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Gamma]T", "=", 
  RowBox[{"N", "[", 
   FractionBox["1", 
    RowBox[{"df", "/", "vt"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5467833709767494`*^9, 3.5467833719444885`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinGnd", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jGnd", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxGnd", "=", 
   RowBox[{"jGnd", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"1011910813", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"From", " ", "Samsonetti", " ", "review"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
  3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
  3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
  3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
  3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}, {3.542425453194773*^9, 3.5424254561736093`*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9, {3.5424254476893854`*^9, 
   3.542425450340705*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Int", "=", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"384230406373000", ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606320562795*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"25002000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"25790000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9, {3.542425462552373*^9, 3.5424254649385614`*^9}}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["5", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, {
   3.542425468821965*^9, 3.542425471176961*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinFin", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jFin", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxFin", "=", 
   RowBox[{"jFin", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Fin", "=", 
    FractionBox["1", 
     RowBox[{"241.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]GndToFin", "[", 
   RowBox[{"f_", ",", "fDPrime_"}], "]"}], ":=", 
  RowBox[{"2", " ", 
   RowBox[{"Switch", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "fDPrime"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "5."}], "}"}], ",", "385285142367000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "4."}], "}"}], ",", "385285147084900", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "3."}], "}"}], ",", "385285151594800", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "2."}], "}"}], ",", "385285155397600", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "1."}], "}"}], ",", "385285158138000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "4."}], "}"}], ",", "385286664961900", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "3."}], "}"}], ",", "385286669461000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "2."}], "}"}], ",", "385286673254300", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "1."}], "}"}], ",", "385286675998000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "0."}], "}"}], ",", "385286677451000"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5399865266491117`*^9, 3.539986527335513*^9}, {3.542425475107153*^9, 
   3.542425496941553*^9}}],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     FractionBox[
      RowBox[{"2", " ", "kB", " ", "temp"}], "mRb"], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}, {3.5467833894262323`*^9, 
  3.546783390440798*^9}}],

Cell[BoxData["25150.741682876534`"], "Output",
 CellChangeTimes->{
  3.5424293009318185`*^9, 3.542429501053955*^9, 3.542431105771738*^9, 
   3.542454280061915*^9, 3.5424602507376366`*^9, 3.54246081757672*^9, 
   3.5424619256763277`*^9, 3.5424629994853477`*^9, 3.542463612492292*^9, 
   3.542464256173705*^9, 3.5424648653694744`*^9, 3.542465540149274*^9, 
   3.542491960183524*^9, 3.5424926016105213`*^9, 3.542505921656664*^9, 
   3.5425069662619853`*^9, 3.5425079905090103`*^9, 3.542515048538971*^9, 
   3.5425172338980856`*^9, 3.5425196325780706`*^9, {3.5425542601187572`*^9, 
   3.5425542866389275`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["v", "2"], 
      SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.546783393094277*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Offset Frequency", "Subsubtitle"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f0", "=", 
   RowBox[{
    RowBox[{"-", "20"}], " ", 
    SuperscriptBox["10", "6"]}]}], 
  RowBox[{"(*", 
   RowBox[{"40.25", "*", 
    SuperscriptBox["10", "6"]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"scanRange", "=", "90."}], ";"}]}], "Input",
 CellChangeTimes->{{3.536606229336*^9, 3.536606229476625*^9}, 
   3.536609033945375*^9, {3.53667308924225*^9, 3.536673089507875*^9}, {
   3.536679694632875*^9, 3.5366796956485*^9}, {3.536683666961*^9, 
   3.5366836672735*^9}, 3.5370104677487497`*^9, 3.5370325434049997`*^9, {
   3.539116492685813*^9, 3.5391164930290136`*^9}, 3.539127919839781*^9, {
   3.54004763171466*^9, 3.5400476354742117`*^9}, {3.540073855086131*^9, 
   3.540073856162524*^9}, 3.5424255099330215`*^9, 3.542427066365017*^9, {
   3.542491800285019*^9, 3.5424918005034924`*^9}, {3.542491901220725*^9, 
   3.542491947077256*^9}, {3.5425059035131664`*^9, 3.542505910159022*^9}, {
   3.5425069498968506`*^9, 3.5425069510981045`*^9}, {3.54250795462809*^9, 
   3.5425079787619085`*^9}, {3.5425142577597637`*^9, 
   3.5425142578221655`*^9}, {3.542516136070815*^9, 3.5425161371160216`*^9}, 
   3.5425171800617957`*^9, {3.5425542299949636`*^9, 3.54255423718661*^9}, 
   3.54255428086689*^9}],

Cell[BoxData[
 RowBox[{"-", "20000000"}]], "Output",
 CellChangeTimes->{
  3.5425059216878653`*^9, 3.5425069662619853`*^9, 3.5425079905402107`*^9, 
   3.5425150485701714`*^9, 3.542517235146102*^9, 3.5425196325936794`*^9, {
   3.542554260149957*^9, 3.542554286670127*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Rep Rate Range", "Subsubtitle",
 CellChangeTimes->{{3.45666493915625*^9, 3.456664941796875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fRepMin", "=", "250000000.00"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"fRepMax", "=", 
  RowBox[{"fRepMin", "+", "scanRange"}]}]}], "Input",
 CellChangeTimes->{{3.456664947171875*^9, 3.4566649499375*^9}, {
   3.456665042671875*^9, 3.45666507275*^9}, {3.456665103265625*^9, 
   3.45666510571875*^9}, {3.456665200171875*^9, 3.45666520296875*^9}, {
   3.456691746078125*^9, 3.45669175240625*^9}, {3.536342589414125*^9, 
   3.536342618445375*^9}, {3.5366062423985*^9, 3.536606269101625*^9}, {
   3.536673100086*^9, 3.536673151445375*^9}, {3.536679707945375*^9, 
   3.536679725882875*^9}, {3.536683688101625*^9, 3.53668372074225*^9}, {
   3.5369246547956247`*^9, 3.5369246550456247`*^9}, {3.5372003428581247`*^9, 
   3.5372003561081247`*^9}, {3.5377186875620003`*^9, 
   3.5377186920307503`*^9}, {3.5377228732026253`*^9, 
   3.5377228764838753`*^9}, {3.5377945896870003`*^9, 
   3.5377945969526253`*^9}, {3.5378884679682503`*^9, 
   3.5378884728745003`*^9}, {3.5378886446870003`*^9, 
   3.5378886463745003`*^9}, {3.5378933335587473`*^9, 
   3.5378933356803513`*^9}, {3.537893370718013*^9, 3.5378933755228214`*^9}, {
   3.5379017917519245`*^9, 3.537901792812726*^9}, {3.5385833273276577`*^9, 
   3.538583332126932*^9}, {3.539116509315442*^9, 3.539116540281497*^9}, {
   3.540047637564585*^9, 3.5400476549271626`*^9}, {3.540073858627309*^9, 
   3.5400738593917036`*^9}, 3.5400770004261837`*^9, {3.5404191910655155`*^9, 
   3.540419193577099*^9}}],

Cell[BoxData["2.5000009`*^8"], "Output",
 CellChangeTimes->{
  3.5424293009630165`*^9, 3.5424295010695543`*^9, 3.5424311058029375`*^9, 
   3.5424542800931153`*^9, 3.542460250768837*^9, 3.5424608175923204`*^9, 
   3.542461925707528*^9, 3.542462999516548*^9, 3.542463612523492*^9, 
   3.5424642562049046`*^9, 3.542464865385074*^9, 3.5424655401804743`*^9, 
   3.542491960245935*^9, 3.542492601657329*^9, 3.5425059218750725`*^9, 
   3.542506966277586*^9, 3.542507990555811*^9, 3.5425150485857716`*^9, 
   3.542517235161702*^9, 3.5425196326092887`*^9, {3.5425542601655574`*^9, 
   3.542554286685727*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fRepAvg", "=", 
   FractionBox[
    RowBox[{"fRepMin", "+", "fRepMax"}], "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.456665192578125*^9, 3.456665212796875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.5403172564374437`*^9, 3.540317263022332*^9}, {
  3.540419203529835*^9, 3.5404192074454103`*^9}, {3.540494265596272*^9, 
  3.540494270728606*^9}, {3.5424260615548873`*^9, 3.5424260660625067`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1536914", ",", "1536915", ",", "1536916", ",", "1536917", ",", "1536918", 
   ",", "1536919", ",", "1536920", ",", "1536925", ",", "1536926", ",", 
   "1536927", ",", "1536928", ",", "1536929", ",", "1536930", ",", 
   "1536931"}], "}"}]], "Output",
 CellChangeTimes->{
  3.542429300994215*^9, 3.5424295011319513`*^9, 3.542431105849738*^9, 
   3.5424542801243157`*^9, 3.5424602508156376`*^9, 3.542460817623521*^9, 
   3.5424619257387285`*^9, 3.542462999547748*^9, 3.542463612539092*^9, 
   3.542464256236105*^9, 3.542464865416274*^9, 3.542465540211674*^9, 
   3.5424919603239484`*^9, 3.542492601828959*^9, 3.542505921984277*^9, 
   3.5425069662931867`*^9, 3.5425079906026125`*^9, 3.5425150486169724`*^9, 
   3.5425172351773024`*^9, 3.5425196326405067`*^9, {3.542554260259158*^9, 
   3.5425542867169275`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.5403172649884357`*^9, 3.5403172699193*^9}, {3.5404192086622024`*^9, 
  3.540419212998975*^9}, {3.5404942846436276`*^9, 3.5404942930363197`*^9}, {
  3.542426067559848*^9, 3.542426071490367*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1545361", ",", "1545362", ",", "1545363", ",", "1545364", ",", "1545365", 
   ",", "1545366", ",", "1545367", ",", "1545368"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5424293010098143`*^9, 3.54242950116315*^9, 3.542431105865338*^9, 
   3.542454280155516*^9, 3.542460250831238*^9, 3.542460817639121*^9, 
   3.5424619257699285`*^9, 3.5424629995633483`*^9, 3.5424636125546923`*^9, 
   3.542464256251705*^9, 3.542464865416274*^9, 3.542465540242874*^9, 
   3.542491960355154*^9, 3.5424926018601646`*^9, 3.542505922015478*^9, 
   3.5425069662931867`*^9, 3.542507990633813*^9, 3.542515048632573*^9, 
   3.5425172351929026`*^9, 3.5425196326405067`*^9, {3.542554260259158*^9, 
   3.542554286748128*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
  3.4566795630625*^9, 3.45667956609375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"transProb", "[", 
     RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
          "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Pi]", " ", 
                RowBox[{"\[Nu]GndToFin", "[", 
                 RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
               RowBox[{"\[Omega]1", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["v", "c"]}], ")"}]}], "-", 
               RowBox[{"\[Omega]2", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"]}],
            ")"}]}], ")"}], 
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "f"}], "+", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"m", "=", 
           RowBox[{"-", "f"}]}], "f"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"mDPrime", "=", 
            RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"mPrime", "=", 
                RowBox[{"-", "fPrime"}]}], "fPrime"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                   "+", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]]}],
                ")"}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"transProb", "[", 
      RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
           "/", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Pi]", " ", 
                 RowBox[{"\[Nu]GndToFin", "[", 
                  RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
                RowBox[{"\[Omega]1", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   FractionBox["v", "c"]}], ")"}]}], "-", 
                RowBox[{"\[Omega]2", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], 
              "4"]}], ")"}]}], ")"}], 
         FractionBox["1", 
          RowBox[{
           RowBox[{"2", "f"}], "+", "1"}]], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"m", "=", 
            RowBox[{"-", "f"}]}], "f"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"mDPrime", "=", 
             RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
              RowBox[{
               UnderoverscriptBox["\[Sum]", 
                RowBox[{"mPrime", "=", 
                 RowBox[{"-", "fPrime"}]}], "fPrime"], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                    "+", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                  ")"}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                  "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR"}], "]"}], ",", "v"}], "]"}]}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{"fRep_", "?", "NumericQ"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQ/Zepf7NR7CtHpd18W0C0x7fm2/5AOiJ5OZh+MelI
xY/EV45u95dVgeiinK2GP4E0k0S+GYj+c89uzdKUV44ywp/A9JxZMzeCaOu/
98B0YETVLhC9U1VhD4jWabxwGkTfFeA4B6INuMMfg+hEqX3PQPTUbVsnLgPS
18RWTwXR63ZtXguif31MWQei7bpT/20E0sqBX8C0ksCh51uAdMBX5hcges60
TP2tQHrau9NgelN5+U4Q7aXquAtEP2MRstsGpJvvlIBpzeisLhAdPZexG0Sf
Ox9xG0RPm30DTOss/KOxHUj3tNlqguj9XuG1IPpTrVwdiBb2i9t0BEiXuJhs
BdEArwK2Eg==
  "]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Delta]f", "=", "0.25"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fr", "=", "fRepMin"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fRepList", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Form", " ", "the", " ", "fRepList"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"While", " ", "[", 
  RowBox[{
   RowBox[{"fr", "<", "fRepMax"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fRepList", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"fRepList", ",", "fr"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"fr", "+=", "\[Delta]f"}], ";"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.456746939*^9, {3.5372003913424997`*^9, 3.5372003937643747`*^9}, {
   3.5378885919057503`*^9, 3.5378885935932503`*^9}, {3.537901719773398*^9, 
   3.53790172663741*^9}, 3.5379017983975363`*^9, 3.5385235615778646`*^9, 
   3.538524008413422*^9, {3.540084146036523*^9, 3.5400841470661955`*^9}, 
   3.5404312983500743`*^9, 3.5404424331582637`*^9, {3.5410239668018274`*^9, 
   3.5410239832807074`*^9}, {3.541029277296784*^9, 3.541029278919194*^9}, {
   3.542421816350875*^9, 3.542421818719475*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
     "\"\<C:\\\\RbDFCS\\\\Rb87_5D52.txt\>\"", ",", "totalSpec", ",", 
      "\"\<Table\>\""}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tt", "=", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\n", " ", 
   RowBox[{"(*", 
    RowBox[{
    "distribute", " ", "NIntegrate", " ", "among", " ", "CPU", " ", "cores"}],
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"specList", "=", 
     RowBox[{"ParallelTry", "[", 
      RowBox[{"vIntSpec", ",", "fRepList", ",", 
       RowBox[{"Length", "[", "fRepList", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ttt", "=", 
     RowBox[{
      RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], "]"}], 
   "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"totalSpec", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "fRepList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
         ",", 
         RowBox[{"Chop", "[", 
          RowBox[{
          "specList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "1", ",", 
         RowBox[{"Length", "[", "specList", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5385255757270675`*^9, 3.5385255896838655`*^9}, 
   3.538525623446797*^9, {3.5385833530161266`*^9, 3.5385833644487805`*^9}, 
   3.5386070295553474`*^9, {3.5391281630166893`*^9, 3.539128167970973*^9}, {
   3.54006852448602*^9, 3.5400685308040204`*^9}, {3.5410239000592422`*^9, 
   3.5410239015417175`*^9}, {3.5410239950156674`*^9, 
   3.5410239980430374`*^9}, {3.5410240329982376`*^9, 3.541024060104122*^9}, {
   3.5410262133987827`*^9, 3.541026267538763*^9}, 3.542422807691163*^9, 
   3.5424237374883456`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Execution time = \"\>", "\[InvisibleSpace]", 
   "921.6383079`10.416105511402167"}],
  SequenceForm["Execution time = ", 921.6383079`10.416105511402167],
  Editable->False]], "Print",
 CellChangeTimes->{3.5424316106945114`*^9, 3.542454813701109*^9, 
  3.542460772211339*^9, 3.5424613371469555`*^9, 3.542462432452913*^9, 
  3.542463519858898*^9, 3.5424641604621925`*^9, 3.542464793313074*^9, 
  3.5424653946172743`*^9, 3.5424660350464745`*^9, 3.5424924592514863`*^9, 
  3.542493567758172*^9, 3.542506833032007*^9, 3.542507879652568*^9, 
  3.5425089025395947`*^9, 3.5425159611312933`*^9, 3.5425205454584475`*^9, 
  3.542555209197641*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"totalSpec", ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", 
   RowBox[{"Joined", "\[Rule]", " ", "True"}]}], " ", "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Hdcjf0fx/GrqSRpSENT0R7aaZKVO8koDVHkJtFSUtSVhkrjbqKoRClU
topoSaIilXQTGlYqEhG3fr/Pm388no/X45yuc53v9R1HwdN3rRcnwzA7OBiG
/qd/Xi2l1kH5KwUuuzdbMgwLv/ryffGPRDLDQW6oCw+wikGHRz4vbm5eg85J
ttNs0jMbQYdfzU4bT5n/gDoX2VRKLJDLl8zC/W9HNeoD0bnJyee4NEcq0OF3
E489eVUfUuchf46/UlLiT2Zhg3ua85Wq0HnJVevW13XwtlCHLV8cOSG1gcxM
I3vG8Aw7VaLDFuzO8aMirdT5yKduZA4UOqPDHNUZ/YM16Pzk+6JhRetU2qjD
K2STBxzzyMx08oXu2/duMI+ow+atY+89F5EZAbJj6f5Wn33ocOViJ23Va+gz
yOJHZSIOfkOH63g7L/aYPKYuSGY+pVUkRZNZWMxiquZxC/pMckvgnuI46Xbq
cEIfxy+7XWRGiPw7/GTkxya8Hj6VXpwgKIY+i2w001BEZ9sT6nD6XLlXZ5vJ
jDCud6O+l6dGB3VY7a+duZuyyIwI+bLI3bBiUXTYLdmkKdmmk7ooeS5XsZnP
ezIL2wvICqfu6KIuRh6f9umL1VcyC6sVWrz+58BT6rPJus6aQkoS3dThz+5h
4evLyYw4+Uq66Ywk+2fU4XXpZVx3J8jMHNzfsprsqbIe6vD8jo29PN7/UpfA
eHmaJJlu+pw6nKLEORk76wV1SXLTgNzt8AoyC0+OlEdMHe2lLkWecOlWfRj1
kjq8XrQiQn/FK+rS5GjhsWv8P8ksnH3RM3xL3mvqc3F9Nlzx5jZ91OFlLRKl
v8fJjAzZt8BXwftKP3VYwki1tSBkgLoseQNP/lCQ0yB1eN8bJ4kZi99QlyPv
an1+O9jsLXW4a2BZbv3qd9TlyW26iht+Br2nDj+yuvOVsf5AXQHXt3Xirlf8
EHX4yIpimdacYeqK5Gabi3021qPU4WOVV7w2xX2iPo9cEtK2aDT2M3XYeXLz
kMrpMepK5GlfGa/0mi/UYa2bFXWl18apK5OH0/Zy5z/8Rh0OWxpo+STuO/X5
GD/3m6yEgiepw/uHxjJVLvyivoA8qFD6umvlFHW44Z+ljdpKHFb/7ypk/ccz
Sq1ecP7fLBy3+mdmbx83dVWMr1Vp73Ytn0YdTim+Id54g5+6Gvl9REnP8NQM
6rDiNiED0+xZ1NXJJ9Tud49GiFKHeWzSdgfVi1PXIN9U7Tle6ypFHQ5rDhts
lpCnrkm+Om+qYmHEPOrwE5E1BTueLKCuRQ4ouylUu0yTOmxo+8ls57+61LXx
ed/1+zxxNaAOn5hzJiivwJi6DrlCpvdrcQ2ZhUvNxfXV5c2o65ILi6UFhwIW
UYebViVyCG4wob6QPHorvsZonyF1OMFw+HbSXj3qerhfG7/YFLbqUId7D3kt
n15N18vok5WFzC8fX6BOHZ7c3L+ku0eVugH5meujkT2hZBZWYpmhnhJ0QzKX
77PwwHB0WLHi/FE1CXQj9DGbtI3tKtThNIdaN4MtuH/GZAflSEHBMmXqcGRw
oR83txJ1E3x+qVt7xZsVqcO7SrzOmhmRGVOyy4sJ3ZZ4dLgpMaNPR4W+L2YR
+R9f8Zzzm+n9WHjmzevnlArp7zFmZEnrZddfh82nDh+KGNY7m0xmzLEezl5h
EjOA64P3hKY+/DCI97cgl92pjIovU6AOFzxMrHxoIEfdkvwwirNuvYc0dXg8
8n0tV44EdSs8L25zE9ayNB5ZOObe1vVV42LUrTEeBlULJ3Zj/Fr/eR69mtZc
EqG+GNcXXnc+K0+YOuzzuEzjcyzG/xLyF/1GL2VuIeqwjXpDraS7IHUb8uPT
pr+DRwWow8srLypzVk2nvpQcu+BkXPEgPW8s7DGzLfaMN56/ZeRZfIGNWqN8
1OFfTbpvtnaRmeUYX5m8GUON6LDcc52Dfg54/QrMdx/irwc7099j4bC/n0+u
+EnXw6wk7y1is7UOz6QO140EuCkO4vPZ4u8rNeZ2i+D+wO1RQp01IbOpryKf
y69+OckjSR2+1B3buGlYhvpfZFEdPSOFEnx/8HXdkB/CyRh/dmTHS+FdtYo0
Xln4lVj97q4hGs/ManLqqdTI+BSMf3hx7WNtLwbj357sv9ZF4UgxXg/3mS4J
usOD8bWGzDe6pVK4AOMTlnVIvNTfjfHlQK6q+SrP34X5B5byDhdadhTXtxbz
h5OiTy3ej4Vfptye5daA52sd+WPihCX/n+cTtrZdmbSzXo36enz+td0v7I6Q
WTip06x/uxLNB8wGPA+ZO7/5PkGH58Td0m4rQnck35Hl+u5+T4M6fNjQL3El
nzZ1J/KBb9eM//qN+Qde5xz+Ti5vIfWN5NCTx9m07zRfsfC76gynXVf0qTvj
/tUtN/peSGbh0BkbemY8xfzmgvHQKZzluR2vh61abi9LKsf864rPW2/7JDga
fx9ebZbXn83i+tzIEekV1a/ltajDSpFSb6uz6fMwm/B8WhaXLL6Dzw8Xln8T
zU7A9+9OLvp9iqtlJu4/HLdNJkF9G76/zZjP3E/yZd+i9YSF052UcoP55lLf
Qra32eT0yYTmAxb+z1+iIOognn8PjIfaw24cvni+4eq4pUVxY3h+PfH9nk1s
0PyJ5xM2tVdqr7nMS30rec3vZocPm2g9ZWHe+U9n6RhzUt9GvtcZNCLjy1CH
MwoPaSx9+h+t316YT10ezU00/UnrN6xqERvFlfCD+nZyjsLUQdXgCerwhfyC
77w+X6n/TT67sDfI5Av2F3Cv+7fR2GPYf+wgb8t1ko30x/4EnhcY8908A/uX
neS7vE6W93mwv4HLxes39jti/+NNrmyanFh6H/sjOEP8XoXtVuyfduH+Cma1
HZPD/gruEHdeaTdO+zHGh2zgYmyh+4r2ayycHqKn9fId7eeY3XheXUvepHJg
fwenXh32EFDB/m8POc/k42VVd+wP4RzXxAsFBdg/+mL9/3RtaNNp2m+y8Mv9
3ZF9Nth/+uH6xaxf113E/hS+ldl1Qlkd+1d/zM/2zWcEVmF/Cwd+tRKttsP+
N4Ds2j5stMoL+2PYsGBji3Ac7aeZQDy/V3wdg27QfpuFnwtmce4cof04sxf3
q353cslC7M9hcY9wg7I32N8HYb55cdAwow37f5i71nrKbhF6MN5fWv/8tiI6
L7Bwop+2hPJHnC/2kd8fdphq34bzBayv0H3+8CTOJyFkTrELh6+m4XwCOzpe
OG4sg76ffIRzgtOlGOcbWFVURd01BuefUKw32b0yatLosHVDiq7tNZyfwsj9
Adafzz3A+QzOulmX9akR568DeH78rj17748OP5fz6aySRz9IHunmmxPfgfMb
HDF9VbTTTpz/wskL7POrR6zQYT+X+pXZn3G+jMD6+W00J/MQzpdwnmKt2J3t
6Cy+L+WpoR4edHhrdvPbMQmcbyPJ0x2nadsfw/kX9libE92lh36InDvuv/n7
Ezovs7BcTspaH3ucn6Mwni03vI3HeZyFTdrbHs4Tw/k8mizMYyDT7oEO5y7a
o2Ylgh5D/stdZItHHc7/sOHwyVMHvHD+j8V6uTmssFIFHXa5YWmbOYDfFw6T
39z1GzfOw+8LcGvlrRoXL/Q4rO/8WdKyGuiwPHfawvJ/8ftGPHlsTMFctQi/
b8B1hi99/VLQE/B56yM+KsMsnP/Noma7AfoR8g/FzKfN/OjwncElrYmv7lNP
JGs6mE1vriSzcK2IP79ZOnoSWUC5aN2tAHT4kfyHrva16MmYj0N7fDwfocMh
kT+spSXQUzCfnVIL5mpoog7zFDcKcLWSmX/IPgVNtqre6PC/Dfv29gWhp5Lt
9pqW/LcPHdbynLViZDN6GtZTt6t6z9agw3aJ9q1VAejpmC+UUseEvdBhjrH8
1TlO6Bnk3X2Ss4zt0GGLkNLo48vRM8kat8oHR63RYek1XOXcWuhZ5C/Lj6Qm
caPDr1UstLn00I/ifjrJ8b0KuUcd7vEuW52ZTGaOkY1/XftvoAQd7vQwNZY3
w+uP4+9zT7PuWIL3h4OHq2bu8kPPJqt96lSt/nN98AKZVR1ef3oOueREaPnT
UHSYb2iG36XD6CfI++6H7T+Qgw5rSUUJPDqPfpK8vvFtlutddDjncY16KD++
31xycUy8stscfP+w4MjJ/jAT9Dyy6HCZgZApOlyVYByspImeTz6npqhRG4YO
SxzpXFh8A/0UeclM+aljJegwZ+FZ+QdN6AVkflNLk7kqGN9wJUdBg44Vxv9p
so119Lu7/uiw5wuLcPY0+hmy5K+C38wzdLhPyvBB+2I834Xk5RxRNpvM8XwW
/plvBGXrJ/H6IvLUsx9qZnfRYX+d2V9TePH6s+QTx23mzbbC/AB/WR3AfywN
vZh8IU19M3MZHe6VdltySRjzTwn5qrWtDa8n5idY5XPlmFkb+jnyYGto40VV
zH/w8JCmanQc5r/zmL90Qg9Jt6PDqQ61z/IcMX9ewPrn/eHD342YX2EproiO
edKYn0vJDyyM5r/YgPkZDs2oDnLOQi8jx/zMDzLuQId/NdT02YlgfSjH/LLS
XDbICesDnCtx4pjkKfSLWN/n7dLheYsOV6u9jvZfhPXnEjmZb/tqMWOsT3Da
db48vgH0y5hP+hsGvNXw+yFs3NtxVTIO698VvD7X4VJHIjrcKMbN6byuw/J/
ocY3tQ==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.5424316107413116`*^9, 3.5424548137479095`*^9, 
  3.54246077227374*^9, 3.5424613371937556`*^9, 3.5424624325309134`*^9, 
  3.5424635199212985`*^9, 3.542464160508993*^9, 3.5424647933598742`*^9, 
  3.542465394664074*^9, 3.542466035093274*^9, 3.5424924593607054`*^9, 
  3.542493568101449*^9, 3.54250683309441*^9, 3.542507879933375*^9, 
  3.542508902820402*^9, 3.542515961193694*^9, 3.5425205458017645`*^9, 
  3.542555209494043*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"vList", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"v", ",", 
        RowBox[{"fnToIntegrate", "[", 
         RowBox[{"fRepAvg", ",", "v"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", 
        RowBox[{"-", "30000"}], ",", "30000", ",", "100"}], "}"}]}], "]"}]}], 
   ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.5377899216870003`*^9, 3.5377899242495003`*^9}, {
  3.541023048631363*^9, 3.5410230563408747`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"vList", ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.5377897259057503`*^9, 3.5377898006713753`*^9}, {
  3.5377899038745003`*^9, 3.5377899277495003`*^9}, {3.5400685373248205`*^9, 
  3.54006853852602*^9}, {3.5404941938215923`*^9, 3.5404942214020386`*^9}, {
  3.541023044901457*^9, 3.5410230544993315`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Export", "[", 
   RowBox[{"oFile", ",", "totalSpec", ",", "\"\<Table\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.541025417015375*^9, 3.5410254354270334`*^9}, {
  3.541026196751128*^9, 3.5410261970631742`*^9}, {3.5410292898080645`*^9, 
  3.5410292918048773`*^9}, {3.542421909689475*^9, 3.542421919133875*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Administrator\\\\Dropbox\\\\RbDFS\\\\\
calculation\\\\Rb85_5D52_new_offset_C.txt\"\>"], "Output",
 CellChangeTimes->{3.542431610912913*^9, 3.5424548139039106`*^9, 
  3.542460772429742*^9, 3.5424613373497567`*^9, 3.5424624327025146`*^9, 
  3.5424635200772996`*^9, 3.5424641606805944`*^9, 3.542464793515874*^9, 
  3.542465394820074*^9, 3.5424660352648745`*^9, 3.5424924597507725`*^9, 
  3.5424935683198977`*^9, 3.5425068332504168`*^9, 3.5425078801049795`*^9, 
  3.5425089029920063`*^9, 3.5425159613652945`*^9, 3.542520545957817*^9, 
  3.5425552096344433`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
CellContext->Notebook,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 463, 13, 80, "Input"],
Cell[CellGroupData[{
Cell[1033, 37, 76, 1, 62, "Subtitle"],
Cell[1112, 40, 1105, 19, 35, "Input"],
Cell[CellGroupData[{
Cell[2242, 63, 37, 0, 35, "Subsubtitle"],
Cell[2282, 65, 148, 5, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2467, 75, 40, 0, 35, "Subsubtitle"],
Cell[2510, 77, 223, 8, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2770, 90, 107, 1, 35, "Subsubtitle"],
Cell[2880, 93, 330, 10, 37, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3259, 109, 75, 1, 62, "Subtitle"],
Cell[3337, 112, 810, 19, 83, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4184, 136, 102, 1, 62, "Subtitle"],
Cell[4289, 139, 149, 2, 35, "Subsubtitle"],
Cell[4441, 143, 301, 7, 53, "Input"],
Cell[CellGroupData[{
Cell[4767, 154, 105, 1, 35, "Subsubtitle"],
Cell[4875, 157, 591, 18, 104, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5503, 180, 101, 1, 35, "Subsubtitle"],
Cell[5607, 183, 219, 6, 35, "Input"],
Cell[5829, 191, 167, 5, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6045, 202, 106, 1, 62, "Subtitle"],
Cell[6154, 205, 222, 3, 35, "Subsubtitle"],
Cell[6379, 210, 225, 5, 53, "Input"],
Cell[CellGroupData[{
Cell[6629, 219, 199, 3, 35, "Subsubtitle"],
Cell[6831, 224, 204, 5, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7072, 234, 109, 1, 35, "Subsubtitle"],
Cell[7184, 237, 301, 8, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7522, 250, 389, 5, 35, "Subsubtitle"],
Cell[7914, 257, 870, 16, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8821, 278, 413, 6, 35, "Subsubtitle"],
Cell[9237, 286, 554, 9, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9840, 301, 115, 1, 62, "Subtitle"],
Cell[9958, 304, 249, 3, 35, "Subsubtitle"],
Cell[10210, 309, 328, 7, 53, "Input"],
Cell[CellGroupData[{
Cell[10563, 320, 199, 3, 35, "Subsubtitle"],
Cell[10765, 325, 357, 8, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11159, 338, 115, 1, 35, "Subsubtitle"],
Cell[11277, 341, 347, 9, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11661, 355, 252, 3, 35, "Subsubtitle"],
Cell[11916, 360, 630, 16, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12583, 381, 315, 4, 35, "Subsubtitle"],
Cell[12901, 387, 1126, 20, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14064, 412, 350, 5, 35, "Subsubtitle"],
Cell[14417, 419, 960, 18, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15414, 442, 371, 5, 35, "Subsubtitle"],
Cell[15788, 449, 962, 18, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16799, 473, 155, 2, 62, "Subtitle"],
Cell[16957, 477, 240, 3, 35, "Subsubtitle"],
Cell[17200, 482, 401, 8, 53, "Input"],
Cell[CellGroupData[{
Cell[17626, 494, 199, 3, 35, "Subsubtitle"],
Cell[17828, 499, 450, 9, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18315, 513, 104, 1, 35, "Subsubtitle"],
Cell[18422, 516, 347, 9, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18806, 530, 293, 4, 35, "Subsubtitle"],
Cell[19102, 536, 764, 16, 53, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19915, 558, 139, 1, 62, "Subtitle"],
Cell[20057, 561, 175, 2, 35, "Subsubtitle"],
Cell[20235, 565, 442, 15, 35, "Input"],
Cell[20680, 582, 1602, 47, 64, "Input"],
Cell[22285, 631, 2333, 56, 278, "Input"],
Cell[CellGroupData[{
Cell[24643, 691, 57, 0, 35, "Subsubtitle"],
Cell[24703, 693, 1384, 45, 88, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26124, 743, 97, 1, 35, "Subsubtitle"],
Cell[26224, 746, 1254, 33, 135, "Input"],
Cell[27481, 781, 1184, 32, 111, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28702, 818, 115, 1, 35, "Subsubtitle"],
Cell[28820, 821, 2134, 54, 327, "Input"],
Cell[30957, 877, 2166, 55, 349, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33172, 938, 89, 1, 62, "Subtitle"],
Cell[CellGroupData[{
Cell[33286, 943, 356, 10, 53, "Input"],
Cell[33645, 955, 606, 9, 35, "Output"]
}, Open  ]],
Cell[34266, 967, 288, 9, 56, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34591, 981, 73, 1, 62, "Subtitle"],
Cell[34667, 984, 39, 0, 35, "Subsubtitle"],
Cell[CellGroupData[{
Cell[34731, 988, 1258, 24, 60, "Input"],
Cell[35992, 1014, 271, 5, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36300, 1024, 102, 1, 35, "Subsubtitle"],
Cell[CellGroupData[{
Cell[36427, 1029, 1478, 24, 58, "Input"],
Cell[37908, 1055, 599, 9, 35, "Output"]
}, Open  ]],
Cell[38522, 1067, 198, 5, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38757, 1077, 90, 1, 35, "Subsubtitle"],
Cell[38850, 1080, 507, 15, 99, "Input"],
Cell[39360, 1097, 833, 25, 99, "Input"],
Cell[CellGroupData[{
Cell[40218, 1126, 1218, 26, 35, "Input"],
Cell[41439, 1154, 851, 15, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42327, 1174, 1267, 27, 35, "Input"],
Cell[43597, 1203, 740, 13, 35, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44386, 1222, 102, 1, 35, "Subsubtitle"],
Cell[44491, 1225, 357, 10, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44897, 1241, 112, 1, 62, "Subtitle"],
Cell[45012, 1244, 8774, 231, 481, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53823, 1480, 185, 3, 77, "Subtitle"],
Cell[54011, 1485, 1243, 28, 210, "Input"],
Cell[CellGroupData[{
Cell[55279, 1517, 2102, 54, 265, "Input"],
Cell[57384, 1573, 684, 12, 33, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58105, 1590, 205, 4, 43, "Input"],
Cell[58313, 1596, 5417, 92, 377, "Output"]
}, Open  ]],
Cell[63745, 1691, 528, 15, 43, "Input"],
Cell[64276, 1708, 434, 8, 43, "Input"],
Cell[CellGroupData[{
Cell[64735, 1720, 375, 7, 72, "Input"],
Cell[65113, 1729, 590, 8, 43, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
